home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
By Popular Request 2.0
/
By Popular Request 2.0 (Arsenal Computer).ISO
/
amiga_2
/
cnetjam2.lha
/
CNetJam2
/
cnet
/
pfiles
/
fido
/
Give_Me_FILES
< prev
next >
Wrap
Text File
|
1995-01-28
|
3KB
|
47 lines
/**************************************************************************\
$VER: Give_Me_FILES, v1.0 (28-Jan-95) by Dotoran!
\**************************************************************************/
options results;signal on SYNTAX;signal on ERROR;signal on IOERR
tr=transmit;se=sendstring;gc=getchar;gu=getuser;gs=getscratch
a='rexxsupport.library';if ~show('l',a) then if ~addlib(a,0,-30) then exit
/* This mod allows your users to either VIEW or SELECT for DOWNLOAD your bbs's
"FILES" listing(s), which are generally used for FREQS (File Requests).
It's written to find then at the FREQ: assign, but you can change that in
the code below. You should add this line to the end of Menu # 2; Available
Everywhere Menu in your "cnet:bbsmenu" file:
FILES `1- | {#0pfiles:Fido/Give_Me_FILES}
^
Control-Q
Set "files" variable below to the number of filelistings available for
user viewing/downloading, then set the "f." variables equal to the lists
available. The first word in each variable should be the EXACT filename
for the filelist in question. Do NOT use an MCI Color code at the START
of these lines and make SURE no other characters, besides a SPACE come
DIRECTLY after the name.
*/
files=5
f.1="FR_FILES.LHA cf: ceComplete listing of files found on Frontiers BBS."
f.2="FR_AFILES.LHA cf: ceAmiga Specific listing of files on Frontiers BBS."
f.3="FR_IFILES.ZIP cf: ceIBMPC Specific listing of files on Frontiers BBS."
f.4="FR_CFILES.LHA cf: ceCNet Amiga BBS listing of files on Frontiers BBS."
f.5="FR_DFILES.LHA cf: ceFiles written by Dotoran for CNet AMiga BBS."
START:
tr "@4n1cdFilelists c6available for c3viewingc6/c2downloadingc6:n1"
do i=1 to files;tr "cf"i"cb. ca"f.i;end i;tr
se "c6Which listing? c7[cb1c7-cb"files"c7/cdQUITc7]c6: cb";gc;list=result
if list<1|list>files|datatype(list,"n")=0 then do;tr "cdQuit";exit;end;else tr list
se 'n1c7[c3Vc7]c3iew c6FREQ-File List or c7[c2Dc7]c2ownload c6it? c7[cdQUITc7]c6: '
gc;a=result;if index("VD",a)=0 then do;tr "cdQuit!";exit;end
if a='V' then do;tr "c3View It!n1*4freq:"left(f.list,index(f.list,".")-1)"}@4";signal START;end
se 'c2Download It!';selectfile "FREQ:"word(f.list,1);signal START
SYNTAX:;ERROR:;IOERR:;e1=' c9Errorcf: ca'rc' cf(ca'errortext(rc)'cf)';e2=' c9Linecf: ce'left(sigl,4)'c9Filecf:'
gu 1311992;a=result;gu 1311960;b=result;c='cb"ce'a||b'cb"';e2=e2' 'c;tr e1;tr e2;logentry e1;logentry e2;e=sourceline(sigl)
do while e~='';e3='c9Sourcecf: cd'left(e,37);tr e3;logentry e3;e=substr(e,38);end;bufferflush;exit
/** Last Edited: 28-Jan-95 ************************************************\
\****************************************** FRONTIERS BBS (716)/823-9892 **/